Best Tools for JAVA

home *** CD-ROM | disk | FTP | other *** search

/ Best Tools for JAVA / Best Tools for JAVA.iso / GRAPHICS / BMPWIZ / BMPWIZ.ZIP / CAOS.BAS < prev next >

Unknown | 1994-02-08 | 1.0 KB

open in:

MacOS 8.1 |

Win98 |

DOS

view JSON data |

view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Memotech MTX BASIC source `(document/memotechMTXBASICSource)`	ext	Unsupported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
`100%`	TrID	Z-Code V3 adventure for Infocom Z-Machine	default (weak)

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 03 04 00 00 0d 0a 27 20 | 43 61 6f 73 0d 0a 27 20 |......' |Caos..' |
|00000010| 53 77 69 74 63 68 20 70 | 69 78 65 6c 73 20 77 69 |Switch p|ixels wi|
|00000020| 74 68 20 72 61 6e 64 6f | 6d 20 66 75 6e 63 74 69 |th rando|m functi|
|00000030| 6f 6e 0d 0a 0d 0a 27 20 | 49 6e 70 75 74 3a 09 34 |on....' |Input:.4|
|00000040| 2d 38 2d 32 34 20 62 69 | 74 0d 0a 27 20 4f 75 74 |-8-24 bi|t..' Out|
|00000050| 70 75 74 3a 09 34 2d 38 | 2d 32 34 20 62 69 74 0d |put:.4-8|-24 bit.|
|00000060| 0a 0d 0a 27 20 41 75 74 | 68 6f 72 3a 09 41 6e 64 |...' Aut|hor:.And|
|00000070| 72 65 61 20 42 65 6e 6f | 6e 69 09 09 09 20 72 65 |rea Beno|ni... re|
|00000080| 76 3a 09 31 2e 31 0d 0a | 0d 0a 0d 0a 73 74 72 69 |v:.1.1..|....stri|
|00000090| 6e 67 20 20 20 20 09 69 | 6e 70 46 69 6c 65 2c 6f |ng    .i|npFile,o|
|000000a0| 75 74 46 69 6c 65 0d 0a | 44 65 76 43 6f 6e 09 49 |utFile..|DevCon.I|
|000000b0| 62 6d 70 0d 0a 52 47 42 | 09 70 69 78 70 2c 70 69 |bmp..RGB|.pixp,pi|
|000000c0| 78 73 0d 0a 66 6c 6f 61 | 74 20 20 09 78 2c 79 2c |xs..floa|t  .x,y,|
|000000d0| 78 70 2c 79 70 2c 78 73 | 2c 79 73 2c 72 63 74 2c |xp,yp,xs|,ys,rct,|
|000000e0| 70 65 72 0d 0a 0d 0a 72 | 63 74 3d 35 09 09 09 09 |per....r|ct=5....|
|000000f0| 09 09 27 20 6d 6f 76 65 | 20 72 65 63 74 0d 0a 70 |..' move| rect..p|
|00000100| 65 72 3d 2e 36 09 09 09 | 09 09 09 27 20 6d 6f 76 |er=.6...|...' mov|
|00000110| 65 20 34 30 25 20 70 69 | 78 65 6c 0d 0a 69 6e 70 |e 40% pi|xel..inp|
|00000120| 46 69 6c 65 3d 22 54 65 | 73 74 69 2e 62 6d 70 22 |File="Te|sti.bmp"|
|00000130| 09 09 09 09 27 20 69 6e | 70 75 74 20 66 69 6c 65 |....' in|put file|
|00000140| 0d 0a 6f 75 74 46 69 6c | 65 3d 22 54 65 73 74 6f |..outFil|e="Testo|
|00000150| 2e 62 6d 70 22 09 09 09 | 09 27 20 6f 75 74 70 75 |.bmp"...|.' outpu|
|00000160| 74 20 66 69 6c 65 0d 0a | 0d 0a 49 62 6d 70 3d 4c |t file..|..Ibmp=L|
|00000170| 6f 61 64 49 6d 61 67 65 | 28 69 6e 70 46 69 6c 65 |oadImage|(inpFile|
|00000180| 29 09 09 09 09 27 20 6c | 65 67 67 65 20 6c 27 69 |)....' l|egge l'i|
|00000190| 6d 6d 61 67 69 6e 65 0d | 0a 27 4f 62 6d 70 3d 43 |mmagine.|.'Obmp=C|
|000001a0| 72 65 61 74 65 49 6d 61 | 67 65 28 49 62 6d 70 2e |reateIma|ge(Ibmp.|
|000001b0| 57 69 64 74 68 2c 49 62 | 6d 70 2e 48 65 69 67 68 |Width,Ib|mp.Heigh|
|000001c0| 74 2c 49 62 6d 70 2e 42 | 69 74 43 6f 75 6e 74 29 |t,Ibmp.B|itCount)|
|000001d0| 0d 0a 0d 0a 46 6f 72 20 | 79 3d 30 20 74 6f 20 49 |....For |y=0 to I|
|000001e0| 62 6d 70 2e 48 65 69 67 | 68 74 2d 72 63 74 0d 0a |bmp.Heig|ht-rct..|
|000001f0| 20 20 20 69 66 28 79 25 | 31 30 3d 30 29 0d 0a 20 |   if(y%|10=0).. |
|00000200| 20 20 20 20 20 44 73 70 | 57 68 69 6c 65 28 22 4d |     Dsp|While("M|
|00000210| 6f 73 61 69 63 22 2c 31 | 30 30 2f 49 62 6d 70 2e |osaic",1|00/Ibmp.|
|00000220| 48 65 69 67 68 74 2a 79 | 29 0d 0a 20 20 20 20 20 |Height*y|)..     |
|00000230| 20 50 72 65 76 69 65 77 | 28 49 62 6d 70 2c 69 6e | Preview|(Ibmp,in|
|00000240| 70 46 69 6c 65 2c 35 2c | 35 29 0d 0a 20 20 20 65 |pFile,5,|5)..   e|
|00000250| 6e 64 69 66 0d 0a 20 20 | 20 46 6f 72 20 78 3d 30 |ndif..  | For x=0|
|00000260| 20 74 6f 20 49 62 6d 70 | 2e 57 69 64 74 68 2d 72 | to Ibmp|.Width-r|
|00000270| 63 74 0d 0a 20 20 20 20 | 20 20 69 66 28 52 61 6e |ct..    |  if(Ran|
|00000280| 64 28 31 29 3e 70 65 72 | 29 0d 0a 20 20 20 20 20 |d(1)>per|)..     |
|00000290| 20 20 20 20 78 70 3d 78 | 2b 52 61 6e 64 28 72 63 |    xp=x|+Rand(rc|
|000002a0| 74 29 0d 0a 20 20 20 20 | 20 20 20 20 20 79 70 3d |t)..    |     yp=|
|000002b0| 79 2b 52 61 6e 64 28 72 | 63 74 29 0d 0a 20 20 20 |y+Rand(r|ct)..   |
|000002c0| 20 20 20 20 20 20 78 73 | 3d 78 2b 52 61 6e 64 28 |      xs|=x+Rand(|
|000002d0| 72 63 74 29 0d 0a 20 20 | 20 20 20 20 20 20 20 79 |rct)..  |       y|
|000002e0| 73 3d 79 2b 52 61 6e 64 | 28 72 63 74 29 0d 0a 20 |s=y+Rand|(rct).. |
|000002f0| 20 20 20 20 20 20 20 20 | 70 69 78 70 3d 47 65 74 |        |pixp=Get|
|00000300| 50 69 78 65 6c 28 49 62 | 6d 70 2c 78 70 2c 79 70 |Pixel(Ib|mp,xp,yp|
|00000310| 29 0d 0a 20 20 20 20 20 | 20 20 20 20 70 69 78 73 |)..     |    pixs|
|00000320| 3d 47 65 74 50 69 78 65 | 6c 28 49 62 6d 70 2c 78 |=GetPixe|l(Ibmp,x|
|00000330| 73 2c 79 73 29 0d 0a 20 | 20 20 20 20 20 20 20 20 |s,ys).. |        |
|00000340| 53 65 74 50 69 78 65 6c | 28 49 62 6d 70 2c 78 70 |SetPixel|(Ibmp,xp|
|00000350| 2c 79 70 2c 70 69 78 73 | 29 0d 0a 20 20 20 20 20 |,yp,pixs|)..     |
|00000360| 20 20 20 20 53 65 74 50 | 69 78 65 6c 28 49 62 6d |    SetP|ixel(Ibm|
|00000370| 70 2c 78 73 2c 79 73 2c | 70 69 78 70 29 0d 0a 20 |p,xs,ys,|pixp).. |
|00000380| 20 20 20 20 20 45 6e 64 | 69 66 0d 0a 20 20 20 4e |     End|if..   N|
|00000390| 65 78 74 20 78 0d 0a 4e | 65 78 74 20 79 0d 0a 0d |ext x..N|ext y...|
|000003a0| 0a 50 72 65 76 69 65 77 | 28 49 62 6d 70 2c 69 6e |.Preview|(Ibmp,in|
|000003b0| 70 46 69 6c 65 2c 35 2c | 35 29 0d 0a 53 61 76 65 |pFile,5,|5)..Save|
|000003c0| 49 6d 61 67 65 28 49 62 | 6d 70 2c 6f 75 74 46 69 |Image(Ib|mp,outFi|
|000003d0| 6c 65 29 09 09 27 20 53 | 61 76 65 20 6f 75 74 70 |le)..' S|ave outp|
|000003e0| 75 74 20 69 6d 61 67 65 | 0d 0a 44 73 70 57 68 69 |ut image|..DspWhi|
|000003f0| 6c 65 28 22 22 2c 30 29 | 0d 0a 44 73 70 4d 65 73 |le("",0)|..DspMes|
|00000400| 28 22 45 6e 64 22 29    |                         |("End") |        |
+--------+-------------------------+-------------------------+--------+--------+